home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / clickme.first < prev    next >
Text File  |  1995-03-12  |  39KB  |  1,315 lines
  1. ; Dies ist das Install-Programm für die Meeting Pearls Volume 2
  2. ; Es ist Copyright (C) 1995 by Angela Schmidt, Neu-Ulm, Germany und
  3. ; darf AUSSCHLIESSLICH in Verbindung mit der Meeting Pearls CD oder
  4. ; privat benutzt werden. Weitergehende Nutzung, insbesondere Nutzung
  5. ; und Verbreitung auf anderen CD-ROMs, ist NICHT gestattet.
  6. ; Es ist NICHT gestattet, geänderte Versionen dieses Skripts in
  7. ; irgendeiner Art zu verbreiten.
  8. ; Für Sondergenehmigungen setzen Sie sich bitte mit
  9. ;    Angela Schmidt
  10. ;    Klosterweg 28/I501
  11. ;    D-76131 Karlsruhe
  12. ;    Germany
  13. ; in Verbindung.
  14.  
  15. (set osversion (/ (getversion) 65536))
  16. (set volname (expandpath (":")))
  17. (set findpearlsprefs "S:FindPearls.prefs")
  18. (set metaprefs "S:MetaTool.prefs")
  19.  
  20. (if (<= osversion 34)
  21.     (
  22.         (set oldlevel @user-level)
  23.         (user 2)
  24.     )
  25. )
  26.  
  27. (set langnum
  28.     (askchoice
  29.         (prompt "")
  30.         (help "Please select your favourite language.\n\n" "Bitte wählen Sie ihre bevorzugte Sprache.")
  31.         (choices
  32.             "Deutsch"
  33.             "English"
  34. ;            "Français"
  35.         )
  36.         (default
  37.             (if (patmatch @language "Deutsch")
  38.                 0
  39.                 (if (patmatch @language "English")
  40.                     1
  41. ;                    (if (patmatch @language "Français")
  42. ;                        2
  43. ;                        0
  44. ;                    )
  45.                     0
  46.                 )
  47.             )
  48.         )
  49.     )
  50. )
  51.  
  52. (if (<= osversion 34)
  53.     (user oldlevel)
  54. )
  55.  
  56. (if (= langnum 0) (set langstring "Deutsch"))
  57. (if (= langnum 1) (set langstring "English"))
  58. (if (= langnum 2) (set langstring "Français"))
  59.  
  60. ; Hier folgen die Strings, die für die deutsche Übersetzung benötigt
  61. ; werden. Bei Übersetzungen in andere Sprachen einfach den folgenden
  62. ; Block komplett kopieren und die Texte ändern. Die Steuerzeichen
  63. ; sollten unverändert bleiben. Wer irgendwo eine Zeile hinzufügen oder
  64. ; löschen möchte, muß dir Anzahl der "%s" entsprechend anpassen - für
  65. ; jede Zeile steht ein "%s".
  66.  
  67. (if (patmatch langstring "Deutsch")
  68.     (
  69.         (set ja_antwort
  70.             "Ja"
  71.         )
  72.         (set nein_antwort
  73.             "Nein"
  74.         )
  75.         (set warning_old_os
  76.             (
  77.                 "%s%s"
  78.                 "Bitte bringen Sie Ihr Betriebssystem auf den neuesten Stand, denn ansonsten haben Sie mit Problemen zu rechnen! "
  79.                 "Diese CD läuft zwar prinzipiell auch unter Kickstart 1.2/1.3, aber mit dem Anzeigen von Bildern und einigen anderen Dingen werden Sie Ihre "
  80.             )
  81.         )
  82.         (set intro_msg
  83.             ("%s%s%s%s%s"
  84.                 "Willkommen zur Meeting Pearls CD-ROM!\n\n"
  85.                 "Sie sollten dieses Script vor jeder Benutzung der Meeting Pearls CD-ROM "
  86.                 "starten - in erster Linie, um ein paar Assigns zu aktivieren. Starten Sie hierzu "
  87.                 "das Skript einfach im Novice-Modus. Es werden dann keine dauerhaften Änderungen an Ihrem System vorgenommen.\n\n"
  88.                 "Wenn Sie möchten, können Sie im Expert-Modus auch Ihre bevorzugten Anzeigeprogramme für einige Datentypen einstellen oder alle dauerhaften Änderungen wieder de-installieren."
  89.             )
  90.         )
  91.         (set ask_install
  92.             "Bitte wählen Sie, ob Sie Dinge für die Meeting Pearls II installieren oder de-installieren möchten."
  93.         )
  94.         (set ask_install_help
  95.             ("%s%s"
  96.                 "Beim Installieren werden nur dann dauerhafte Änderungen an Ihrem System vorgenommen, wenn Sie zugestimmt haben.\n\n"
  97.                 "Beim De-Installieren werden alle bisher vorgenommenen dauerhaften Änderungen wieder beseitigt."
  98.             )
  99.         )
  100.         (set install_it
  101.             "Installieren"
  102.         )
  103.         (set de_install_it
  104.             "Entfernen (De-Installieren)"
  105.         )
  106.         (set ask_babel
  107.             ("%s%s"
  108.                 "Falls Sie das BabelCDROMFS verwenden: soll auf ingokale Dateinamenbehandlung "
  109.                 "und Verwendung einer FSSM umgeschaltet werden? (Empfehlung: Ja)"
  110.             )
  111.         )
  112.         (set ask_babel_help
  113.             ("%s%s%s%s%s%s"
  114.                 "Diese CD benutzt RockRidge-Erweiterungen, die beim BabelCDROMFS normalerweise "
  115.                 "gokal ausgewertet werden. Das heißt, wenn ein Programm die Datei \"test\" nachladen "
  116.                 "möchte, diese aber als \"Test\" auf der CD-ROM gespeichert wird, wird diese Datei "
  117.                 "nicht gefunden. Falls Sie das BabelCDROMFS verwenden, sollten Sie hier nun \"Ja\" "
  118.                 "wählen und somit die Umschaltung auf ingokale Dateinamenbehandlung erlauben.\n\n"
  119.                 "Als \"Bonus\" wird auch eine FSSM erzeugt, die Probleme mit manchen Programmen \"wegzaubert\"."
  120.             )
  121.         )
  122.         (set activate_assigns
  123.             ("%s%s%s%s%s"
  124.                 "Sollen Ihrem System ein paar Assigns hinzugefügt werden, damit einige "
  125.                 "auf der CD installierte Programme direkt startbar werden? (Diese Assigns "
  126.                 "werden nicht in S:user-startup eingefügt - nach dem Booten merken Sie also "
  127.                 "nichts mehr davon.)\n\n"
  128.                 "Empfehlung: Ja"
  129.             )
  130.         )
  131.         (set activate_assigns_help
  132.             ("%s%s"
  133.                 "Ich empfehle Ihnen \"Ja\" - es kann nichts kaputtgehen und spätestens "
  134.                 "nach einem Reset ist alles wieder beim Alten."
  135.             )
  136.         )
  137.         (set choose_viewer
  138.             ("%s%s%s%s%s%s%s%s%s"
  139.                 "Möchten Sie nun noch einstellen, welche Programme zum Ansehen von Texten, "
  140.                 "AmigaGuides, Bildern etc. verwendet werden sollen?\n\n"
  141.                 "Dadurch werden die Dateien \""
  142.                 findpearlsprefs
  143.                 "\" und \""
  144.                 metaprefs
  145.                 "\" erzeugt.\n\n"
  146.                 "Diese Einstellungen sind dann auch automatisch nach jedem Reset aktiv.\n\n"
  147.                 "Lesen Sie UNBEDINGT die Hilfe-Seite!"
  148.             )
  149.         )
  150.         (set choose_viewer_help1
  151.             ("%s%s%s%s"
  152.                 "Wir haben bereits geeignete Programme für Sie vorausgewählt. Es ist also "
  153.                 "nicht unbedingt nötig, diese selber zu konfigurieren. Falls Sie Power-User "
  154.                 "sind, werden Sie es sowieso bevorzugen, unser MetaTool von Hand an Ihre persönliche "
  155.                 "Umgebung anzupassen.\n\n"
  156.             )
  157.         )
  158.         (set choose_viewer_help2
  159.             ("%s%s%s%s"
  160.                 "Selbst wenn Sie alle Vorschläge dieses Installier-Programmes direkt übernehmen, "
  161.                 "werden an manchen Stellen danach andere Anzeigeprogramme verwendet als zuvor. "
  162.                 "Dies liegt daran, daß dieses Installier-Programm versucht, möglichst gute "
  163.                 "Vorschläge zu machen, die sowohl für unser MetaTool als auch für unser FindPearls passend sind. "
  164.             )
  165.         )
  166.         (set choose_viewer_help3
  167.             ("%s%s%s%s"
  168.                 "Da FindPearls jedoch UNBEDINGT Programme benötigt, die von der Workbench aus "
  169.                 "startbar sind, werden in diesem Skript - falls möglich - nur Programme vorgeschlagen, "
  170.                 "die auch von der Workbench aus startbar sind - selbst wenn sie etwas schlechter sind als "
  171.                 "entsprechende CLI-Programme. CLI-Programme werden in FindPearls nur als leere Zeichenkette dargestellt.\n\n"
  172.             )
  173.         )
  174.         (set choose_viewer_help4
  175.             ("%s%s%s%s%s%s"
  176.                 "Falls Sie nach der Installation irgendwelche Probleme beim Anklicken einiger Piktogramme "
  177.                 "haben, oder falls Ihnen die ursprüngliche Konfiguration besser gefallen hat, sollten Sie "
  178.                 "entweder \"S:MetaTool.prefs\" von Hand nachbearbeiten (als Vorlage hierfür schlage ich Ihnen \""
  179.                 (expandpath
  180.                     (if (<= osversion 36)
  181.                         (
  182.                             ":MetaTool/MetaTool33.config"
  183.                         )
  184.                         (
  185.                             (if (< osversion 39)
  186.                                 (
  187.                                     ":MetaTool/MetaTool37.config"
  188.                                 )
  189.                                 (
  190.                                     ":MetaTool/MetaTool39.config"
  191.                                 )
  192.                             )
  193.                         )
  194.                     )
  195.                 )
  196.                 "\" vor) oder dieses Skript nochmals im Export-Modus verwenden, dann allerdings "
  197.                 "\"de-installieren\" anwählen."
  198.             )
  199.         )
  200.         (set change_which_filetypes_help5
  201.             (
  202.                 "%s%s%s"
  203.                 "\n\nNOTIZ: Voreinstellungen, die mit dem Schlüsselwort CLI anfangen sind Programme, "
  204.                 "die in einer CLI-Umgebung gestartet werden. Sie sind für FindPearls nicht brauchbar "
  205.                 "und werden dort deshalb als leere Zeichenkette angezeigt."
  206.             )
  207.         )
  208.         (set change_which_filetypes
  209.             "Zu welchen Filetypen sollen die Anzeigeprogramme konfiguriert werden? Lesen Sie die Hilfe-Seite!"
  210.         )
  211.         (set change_which_filetypes_help1
  212.             (
  213.                 "%s%s%s%s%s"
  214.                 "Folgende Bedeutung haben die verschiedenen Filetypen:\n\n"
  215.                 "TEXT  - normale Texte\n"
  216.                 "GUIDE - AmigaGuide-Dokumente\n"
  217.                 "HTML  - html-Seiten\n"
  218.                 "BIN   - binäre Daten\n"
  219.             )
  220.         )
  221.         (set change_which_filetypes_help2
  222.             (
  223.                 "%s%s%s%s"
  224.                 "REXX  - Rexx-Scripten\n"
  225.                 "PS    - PostScript-Dateien\n"
  226.                 "MOD   - Mods\n"
  227.                 "8SVX  - IFF-8SVX-Musikstücke\n"
  228.             )
  229.         )
  230.         (set change_which_filetypes_help3
  231.             (
  232.                 "%s%s%s%s"
  233.                 "JPEG  - jpeg-Bilder\n"
  234.                 "GIF   - gif-Bilder\n"
  235.                 "ILBM  - IFF-ILBM-Bilder\n"
  236.                 "PCX   - PCX-Bilder\n"
  237.             )
  238.         )
  239.         (set change_which_filetypes_help4
  240.             (
  241.                 "%s%s%s%s%s"
  242.                 "MOVIE - MoviePlayer-Animationen\n"
  243.                 "ANIM  - IFF-Animationen\n"
  244.                 "DVI   - DVI-Dokumente\n"
  245.                 "TEX   - TeX-Sourcecodes\n"
  246.                 "\nVoreinstellungen:\n"
  247.             )
  248.         )
  249.         (set sel_text
  250.             "Bitte wählen Sie ein Programm zum Anzeigen von Textdateien."
  251.         )
  252.         (set sel_guide
  253.             "Bitte wählen Sie ein Programm zum Betrachten von AmigaGuide-Dateien."
  254.         )
  255.         (set sel_html
  256.             "Bitte wählen Sie ein Programm zum Betrachten von HTML-Dateien."
  257.         )
  258.         (set sel_bin
  259.             "Bitte wählen Sie ein Programm zum Anzeigen von Binärdateien."
  260.         )
  261.         (set sel_rexx
  262.             "Bitte wählen Sie ein Programm zum Starten von Rexx-Skripten."
  263.         )
  264.         (set sel_ps
  265.             "Bitte wählen Sie ein Programm zum Betrachten von Postscript-Dateien."
  266.         )
  267.         (set sel_mod
  268.             "Bitte wählen Sie ein Programm zum Abspielen von Mods."
  269.         )
  270.         (set sel_8svx
  271.             "Bitte wählen Sie ein Programm zum Abspielen von 8SVX-Dateien."
  272.         )
  273.         (set sel_jpeg
  274.             "Bitte wählen Sie ein Programm zum Anzeigen von JPEG-Bildern."
  275.         )
  276.         (set sel_gif
  277.             "Bitte wählen Sie ein Programm zum Anzeigen von GIF-Bildern."
  278.         )
  279.         (set sel_ilbm
  280.             "Bitte wählen Sie ein Programm zum Anzeigen von ILBM-Bildern."
  281.         )
  282.         (set sel_pcx
  283.             "Bitte wählen Sie ein Programm zum Anzeigen von PCX-Bildern."
  284.         )
  285.         (set sel_movie
  286.             "Bitte wählen Sie ein Programm zum Abspielen von Movie-Dateien."
  287.         )
  288.         (set sel_anim
  289.             "Bitte wählen Sie ein Programm zum Abspielen von Animationen."
  290.         )
  291.         (set sel_dvi
  292.             "Bitte wählen Sie ein Programm zum Anzeigen von DVI-Dateien."
  293.         )
  294.         (set sel_tex
  295.             "Bitte wählen Sie ein Programm für TeX-Dateien."
  296.         )
  297.         (set start_from_wb1
  298.             "\n\nWählen Sie zunächst, ob das Programm von der Workbench oder vom CLI aus gestartet werden soll.\n\nEmpfehlung: "
  299.         )
  300.         (set start_from_wb2
  301.             "\nEmpfohlenes Programm: "
  302.         )
  303.         (set start_from_wb_help_1
  304.             ("%s%s%s%s%s%s"
  305.                 "Es gibt zwei Möglichkeiten, das Anzeigeprogramm zu starten:\n\n"
  306.                 "1) Von der Workbench aus. Das ist dann (fast) so, als hätten Sie das entsprechende "
  307.                 "Programm als DefaultTool in das Project-Icon eingetragen.\n\n"
  308.                 "2) Vom CLI aus. Das ist dann etwa so, als würden Sie im CLI einen Programmnamen, "
  309.                 "eventuell ein paar Parameter und auch irgendwo den Namen des anzuzeigenden bzw. "
  310.                 "abzuspielenden Objekts eingeben.\n\n"
  311.             )
  312.         )
  313.         (set start_from_wb_help_2
  314.             ("%s%s%s%s"
  315.                 "Wenn Sie das Programm von der Workbench aus starten wollen, können Sie Ihr "
  316.                 "Lieblings-Anzeige- oder -Abspiel-Programm mit Hilfe eines Dateiauswahlrequesters "
  317.                 "wählen. Wollen Sie das Programm vom CLI aus starten, müssen Sie die Kommandozeile "
  318.                 "von Hand eingeben.\n\n"
  319.             )
  320.         )
  321.         (set start_from_wb_help_3
  322.             ("%s%s%s%s"
  323.                 "Falls Sie die Kopieroption von FindPearls benutzen möchten und dabei das MetaTool "
  324.                 "bei Applikationen, die Sie auf Ihrer Festplatte installiert haben, nicht verwenden wollen, "
  325.                 "brauchen Sie Programme, die von der Workbench aus startbar "
  326.                 "sind, da dann die DefaultTools der Project-Icons automatisch angepasst werden."
  327.             )
  328.         )
  329.         (set choosewbprg_help
  330.             ("%s%s"
  331.                 "Das Programm, das Sie hier wählen, wird - (fast) als hätten Sie es direkt im DefaulTool "
  332.                 "der Project-Icons eingetragen - zum Anzeigen des entsprechenden Datentyps benutzt, wenn Sie auf ein entsprechendes Icon klicken."
  333.             )
  334.         )
  335.         (set enter_cmdline
  336.             "\n\nGeben Sie die gesamte Kommandozeile mit allen Optionen ein. Wählen Sie ggf. die Hilfe-Seite!"
  337.         )
  338.         (set enter_cmdline_help
  339.             ("%s%s%s"
  340.                 "Geben Sie den Befehl so ein, als würden Sie das Programm vom CLI aus starten. "
  341.                 "Markieren Sie die Stelle, an der der Dateiname eingefügt werden soll, mit \"[]\".\n\n"
  342.                 "Beispiel: \"ZeigeDatei NAME=[] OPTIONEN=meine_optionen\""
  343.             )
  344.         )
  345.         (set wanna_copy_to_envarc
  346.             ("%s%s%s"
  347.                 "Wollen Sie einige Umgebungsvariablen nach ENVARC: kopieren? "
  348.                 "Dieses Install-Skript macht Gebrauch von diesen Variablen, falls "
  349.                 "sie existieren und läuft dann deutlich komfortabler."
  350.             )
  351.         )
  352.         (set wanna_copy_to_envarc_help
  353.             ("%s%s%s%s%s"
  354.                 "Wenn Sie die Umgebungsvariablen nicht kopieren, wird dieses "
  355.                 "Install-Skript nach einem Reset Ihre bereits getroffenen "
  356.                 "Entscheidungen nicht mehr kennen und daher nicht mehr voreinstellen "
  357.                 "können. Andererseits verlängert das Kopieren die Bootzeit ein "
  358.                 "klitzekleinwenig..."
  359.             )
  360.         )
  361.         (set April
  362.             "\n\n\n\n\n    April, April!!! :-)"
  363.         )
  364.         (set Heia_1
  365.             "\n\n\n\n\nEs ist nun "
  366.         )
  367.         (set Heia_2
  368.             " Uhr. Ab in die Heia! :-)"
  369.         )
  370.     )
  371. )
  372. (if (patmatch langstring "English")
  373.     (
  374.         (set ja_antwort
  375.             "Yes"
  376.         )
  377.         (set nein_antwort
  378.             "No"
  379.         )
  380.         (set warning_old_os
  381.             (
  382.                 "%s%s"
  383.                 "Please update the operating system, because otherwise there will be some problems using this CD. "
  384.                 "In principle this CD is still usable under Kickstart 1.2/1.3, BUT you will find it difficult to view all pictures and several other things will not work either. "
  385.             )
  386.         )
  387.         (set intro_msg
  388.             ("%s%s%s%s%s"
  389.                 "Welcome at the Meeting Pearls CD-ROM!\n\n"
  390.                 "You should start this script before you use the CD-ROM to "
  391.                 "add some assigns to your system. Therefore, simply run the script in novice mode. "
  392.                 "In this case, no lasting changes will be done to your system.\n\n"
  393.                 "If you want, you also can specify your preferred viewing programs for some data types using the expert mode. Additionally, you might want to de-install things."
  394.             )
  395.         )
  396.         (set ask_install
  397.             "Please choose, if you want to install or de-install things for Meeting Pearls II."
  398.         )
  399.         (set ask_install_help
  400.             ("%s%s"
  401.                 "If you want to install things, we'll only do lasting changes to your system, if you agreed before.\n\n"
  402.                 "If you want to de-install things, we'll remove any lasting changes from your system."
  403.             )
  404.         )
  405.         (set install_it
  406.             "install"
  407.         )
  408.         (set de_install_it
  409.             "de-install"
  410.         )
  411.         (set ask_babel
  412.             ("%s%s"
  413.                 "If you use BabelCDROMFS: shall we switch to caseinsensitive filenames and create a FSSM? "
  414.                 "Suggestion: Yes"
  415.             )
  416.         )
  417.         (set ask_babel_help
  418.             ("%s%s%s%s%s%s"
  419.                 "This CD-ROM uses RockRidge extentions which are normally dealed in a casesensitive "
  420.                 "way if you use BabelCDROMFS. This means, if any program wants to load the file "
  421.                 "\"test\", which however is saved as \"Test\" on this CD-ROM, this file won't "
  422.                 "be found. If you use BabeCDROMFS, you should select \"Yes\" here and so allow "
  423.                 "switching to caseinsensitive filename mode.\n\n"
  424.                 "As a little extra feature, you'll get a FSSM, which makes some problems with some programs disappear."
  425.             )
  426.         )
  427.         (set activate_assigns
  428.             ("%s%s%s%s%s"
  429.                 "Shall some Assigns be activated, to make some of the programs "
  430.                 "on this CD ready for instant startup? (These Assigns will not be installed "
  431.                 "in the s:user-startup file - so after the next reset everything will be back "
  432.                 "as normal.)\n\n"
  433.                 "Suggestion: Yes"
  434.             )
  435.         )
  436.         (set activate_assigns_help
  437.             ("%s%s"
  438.                 "I suppose the selection of \"Yes\" - nothing will be broken in your system and "
  439.                 "everything returns to its original state after the next reset."
  440.             )
  441.         )
  442.         (set choose_viewer
  443.             ("%s%s%s%s%s%s%s%s%s"
  444.                 "Do you want to choose now your preferred programs to view texts, amigaguides, "
  445.                 "pictures etc.?\n\n"
  446.                 "This creates the files \""
  447.                 findpearlsprefs
  448.                 "\" and \""
  449.                 metaprefs
  450.                 "\".\n\n"
  451.                 "These settings then will be also automatically active after a reset.\n\n"
  452.                 "You REALLY should read the help page now!"
  453.             )
  454.         )
  455.         (set choose_viewer_help1
  456.             ("%s%s%s%s"
  457.                 "We already have choosen some viewing programs for you. So it is "
  458.                 "not necessary to configure them here. If you are poweruser, you "
  459.                 "probably will prefer to configure our MetaTool for your personal use "
  460.                 "using any text editor.\n\n"
  461.             )
  462.         )
  463.         (set choose_viewer_help2
  464.             ("%s%s%s%s"
  465.                 "Even if you confirm the suggestions of this installer program, afterwards, "
  466.                 "we will use some other viewing programs than before. The reason for this "
  467.                 "behaviour is, that this installer program tries to find programs that are "
  468.                 "suitable for both, our MetaTool and our FindPearls. "
  469.             )
  470.         )
  471.         (set choose_viewer_help3
  472.             ("%s%s%s%s"
  473.                 "Since FindPearls ABSOLUTELY needs programs that run from Workbench, this script "
  474.                 "will suggest - if possible - programs that also run from Workbench - even if "
  475.                 "they are not as good as some other CLI programs. "
  476.                 "CLI programs will be displayed as an emtpy string in FindPearls.\n\n"
  477.             )
  478.         )
  479.         (set choose_viewer_help4
  480.             ("%s%s%s%s%s%s"
  481.                 "If you have any problems after this installation while double-clicking on some "
  482.                 "icons or if you prefer the original configuration, you either should edit \""
  483.                 "S:MetaTool.prefs\" using your editor (I suggest to use \""
  484.                 (expandpath
  485.                     (if (<= osversion 36)
  486.                         (
  487.                             ":MetaTool/MetaTool33.config"
  488.                         )
  489.                         (
  490.                             (if (< osversion 39)
  491.                                 (
  492.                                     ":MetaTool/MetaTool37.config"
  493.                                 )
  494.                                 (
  495.                                     ":MetaTool/MetaTool39.config"
  496.                                 )
  497.                             )
  498.                         )
  499.                     )
  500.                 )
  501.                 "\" as model) or you should run this script once more using the expert mode, but "
  502.                 "then you should choose \"de-install\"."
  503.             )
  504.         )
  505.         (set change_which_filetypes
  506.             "Which viewing programs do you want to customize? Read the help-page!"
  507.         )
  508.         (set change_which_filetypes_help1
  509.             (
  510.                 "%s%s%s%s%s"
  511.                 "The following list describes the meaning of the filetypes:\n\n"
  512.                 "TEXT  - normal text documents\n"
  513.                 "GUIDE - AmigaGuide documents\n"
  514.                 "HTML  - html pages\n"
  515.                 "BIN   - binary data\n"
  516.             )
  517.         )
  518.         (set change_which_filetypes_help2
  519.             (
  520.                 "%s%s%s%s"
  521.                 "REXX  - Rexx scrips\n"
  522.                 "PS    - PostScript files\n"
  523.                 "MOD   - Mods\n"
  524.                 "8SVX  - IFF-8SVX-samples\n"
  525.             )
  526.         )
  527.         (set change_which_filetypes_help3
  528.             (
  529.                 "%s%s%s%s"
  530.                 "JPEG  - jpeg pictures\n"
  531.                 "GIF   - gif pictures\n"
  532.                 "ILBM  - IFF-ILBM pictures\n"
  533.                 "PCX   - PCX pictures\n"
  534.             )
  535.         )
  536.         (set change_which_filetypes_help4
  537.             (
  538.                 "%s%s%s%s%s"
  539.                 "MOVIE - MoviePlayer animations\n"
  540.                 "ANIM  - IFF animations\n"
  541.                 "DVI   - DVI documents\n"
  542.                 "TEX   - TeX source codes\n"
  543.                 "\nDefaults:\n"
  544.             )
  545.         )
  546.         (set change_which_filetypes_help5
  547.             (
  548.                 "%s%s%s"
  549.                 "\n\nNOTE: Defaults that begin with the keyword CLI are programs that will be "
  550.                 "run from a CLI environment. They are NOT suitable for FindPearls and so will "
  551.                 "appear as empty string in the FindPearls configuration."
  552.             )
  553.         )
  554.         (set sel_text
  555.             "Please choose a program to show text files."
  556.         )
  557.         (set sel_guide
  558.             "Please choose a program to view AmigaGuide files."
  559.         )
  560.         (set sel_html
  561.             "Please choose a program to view HTML-files."
  562.         )
  563.         (set sel_bin
  564.             "Please choose a program to show binary data."
  565.         )
  566.         (set sel_rexx
  567.             "Please choose a program to start rexx scripts."
  568.         )
  569.         (set sel_ps
  570.             "Please choose a program to view postscript files."
  571.         )
  572.         (set sel_mod
  573.             "Please choose a program to play mods."
  574.         )
  575.         (set sel_8svx
  576.             "Please choose a program to play 8SVX files."
  577.         )
  578.         (set sel_jpeg
  579.             "Please choose a program to show JPEG pictures."
  580.         )
  581.         (set sel_gif
  582.             "Please choose a program to show GIF pictures."
  583.         )
  584.         (set sel_ilbm
  585.             "Please choose a program to show ILBM pictures."
  586.         )
  587.         (set sel_pcx
  588.             "Please choose a program to show PCX pictures."
  589.         )
  590.         (set sel_movie
  591.             "Please choose a program to play movie files."
  592.         )
  593.         (set sel_anim
  594.             "Please choose a program to play animations."
  595.         )
  596.         (set sel_dvi
  597.             "Please choose a program to show DVI files."
  598.         )
  599.         (set sel_tex
  600.             "Please choose a program for TeX files."
  601.         )
  602.         (set start_from_wb1
  603.             "\n\nPlease choose first, if the program should be started from Workbench or CLI.\n\n Suggestion: "
  604.         )
  605.         (set start_from_wb2
  606.             "\nSuggested program: "
  607.         )
  608.         (set start_from_wb_help_1
  609.             ("%s%s%s%s%s%s"
  610.                 "There are two possibilities to start the viewing program:\n\n"
  611.                 "1) Using the Workbench. This behaves (nearly) as to change the defaulttool "
  612.                 "of the project-icon.\n\n"
  613.                 "2) Using the CLI. This is about the same as to enter a program name "
  614.                 "and maybe some parameters and anywhere the name of the project you want to "
  615.                 "show in the CLI.\n\n"
  616.             )
  617.         )
  618.         (set start_from_wb_help_2
  619.             ("%s%s%s%s"
  620.                 "If you want to start the program using the Workbench, you can choose your "
  621.                 "favourite viewing program using a filerequester. "
  622.                 "If you want to start the program using the CLI, you have to enter the "
  623.                 "command line into a string gadget without filerequester support.\n\n"
  624.             )
  625.         )
  626.         (set start_from_wb_help_3
  627.             ("%s%s%s%s"
  628.                 "If you want to use the copy option of FindPearls and if you don't want to use "
  629.                 "MetaTool in applications you've installed to your harddisk, you need programs "
  630.                 "that run from Workbench, since then the defaulttools will be automatically "
  631.                 "exchanged while copying the application to your harddisk."
  632.             )
  633.         )
  634.         (set choosewbprg_help
  635.             ("%s%s"
  636.                 "The program you choose here will be executed if you click on a project icon "
  637.                 "that represents such a data type - just as if you changed the default tool."
  638.             )
  639.         )
  640.         (set enter_cmdline
  641.             "\n\nPlease enter the whole command line with all options. Choose the help page if you don't know how to do this!"
  642.         )
  643.         (set enter_cmdline_help
  644.             ("%s%s%s"
  645.                 "Enter the command as if you would start the program using the CLI. "
  646.                 "Put \"[]\" at the place where the filename you want to view should be added.\n\n"
  647.                 "Example: \"ShowStuff NAME=[] OPTIONS=myoptions\""
  648.             )
  649.         )
  650.         (set wanna_copy_to_envarc
  651.             ("%s%s%s"
  652.                 "Do you want to copy some enviroment variables to the ENVARC: drawer? "
  653.                 "This install script makes use of these variables and will work "
  654.                 "more comfortably when they exist."
  655.             )
  656.         )
  657.         (set wanna_copy_to_envarc_help
  658.             ("%s%s%s%s%s"
  659.                 "If you choose not to copy the enviroment variables then this install "
  660.                 "script will not remember your previous decisions after the next "
  661.                 "reset and will therefore not be able to declare these decisions as "
  662.                 "defaults. On the other hand the copying will slow down the startup "
  663.                 "process a teeny-weeny bit..."
  664.             )
  665.         )
  666.         (set April
  667.             "\n\n\n\n\n    I made an April fool of you! :-)"
  668.         )
  669.         (set Heia_1
  670.             "\n\n\n\n\nIt is "
  671.         )
  672.         (set Heia_2
  673.             " h now. Time to go to bed! :-)"
  674.         )
  675.     )
  676. )
  677. ;(if (patmatch langstring "Français")
  678. ;    (abort "Français n'est pas encore traduiré, je regrette!")
  679. ;)
  680.  
  681. (if (<= osversion 34)
  682.     (if (= 0 @user-level)
  683.         (
  684.             (user 1)
  685.             (message
  686.                 warning_old_os
  687.             )
  688.             (user 0)
  689.         )
  690.         (message
  691.             warning_old_os
  692.         )
  693.     )
  694. )
  695.  
  696. (complete 10)
  697.  
  698. (message
  699.     intro_msg
  700. )
  701.  
  702. (complete 11)
  703.  
  704. (set installit
  705.     (askchoice
  706.         (prompt ask_install)
  707.         (choices install_it de_install_it)
  708.         (help ask_install_help)
  709.         (default 0)
  710.     )
  711. )
  712.  
  713. (complete 12)
  714.  
  715. (if (= installit 0)
  716.     (                                ; install it
  717.         (set switchbabel
  718.             (askbool
  719.                 (prompt ask_babel)
  720.                 (help ask_babel_help)
  721.                 (choices ja_antwort nein_antwort)
  722.                 (default 1)
  723.             )
  724.         )
  725.  
  726.         (if (= 1 switchbabel)
  727.             (
  728.                 (run ("%s%s%s" ":Pearls/disk/CD-ROM/BabelCDROMCtrl/BabelCDROMCtrl " volname " rrnocase fssm"))
  729.             )
  730.         )
  731.  
  732.         (complete 13)
  733.  
  734.         (if (NOT (exists "MeetingPearls2:" (noreq)))
  735.             (
  736.                 (set startscript
  737.                     (askbool
  738.                         (prompt activate_assigns)
  739.                         (help activate_assigns_help)
  740.                         (choices ja_antwort nein_antwort)
  741.                         (default 1)
  742.                     )
  743.                 )
  744.             )
  745.         )
  746.  
  747.         (if (= 1 startscript)
  748.             (
  749.                 (execute ":SYS/S/Meeting-Startup")
  750.             )
  751.         )
  752.  
  753.         (complete 15)
  754.  
  755.         (set configviewer
  756.             (askbool
  757.                 (prompt choose_viewer)
  758.                 (help choose_viewer_help1 choose_viewer_help2 choose_viewer_help3 choose_viewer_help4)
  759.                 (choices ja_antwort nein_antwort)
  760.                 (default 0)
  761.             )
  762.         )
  763.  
  764.         (if (= 1 configviewer)
  765.             (
  766.                 (if (AND (= 2 (exists "ENV:" (noreq))) (= 0 (exists "ENV:MeetingPearls" (noreq))))
  767.                     (makedir "ENV:MeetingPearls")
  768.                 )
  769.  
  770.                 (set i 0)
  771.                 (while
  772.                     (set envvarname
  773.                         (select i
  774.                             "VIEW_TEXT"
  775.                             "VIEW_GUIDE"
  776.                             "VIEW_HTML"
  777.                             "VIEW_BIN"
  778.                             "VIEW_REXX"
  779.                             "VIEW_PS"
  780.                             "VIEW_MOD"
  781.                             "VIEW_8SVX"
  782.                             "VIEW_JPEG"
  783.                             "VIEW_GIF"
  784.                             "VIEW_ILBM"
  785.                             "VIEW_PCX"
  786.                             "VIEW_MOVIE"
  787.                             "VIEW_ANIM"
  788.                             "VIEW_DVI"
  789.                             "VIEW_TEX"
  790.                             ""
  791.                         )
  792.                     )
  793.  
  794.                     (
  795.                         (set wbprograms                            ; set default for KS 1.2/1.3
  796.                             (select i
  797.                                 "SYS:Utilities/More"                ; TEXT
  798.                                 "SYS:Utilities/AmigaGuide"        ; GUIDE
  799.                                 "SYS:Utilities/More"                ; HTML
  800.                                 ""                                        ; BIN
  801.                                 "SYS:Rexxc/rx"                        ; REXX
  802.                                 "SYS:Utilities/More"                ; PS
  803.                                 ""                                        ; MOD
  804.                                 ""                                        ; 8SVX
  805.                                 ""                                        ; JPEG
  806.                                 ""                                        ; GIF
  807.                                 ""                                        ; ILBM
  808.                                 ""                                        ; PCX
  809.                                 ":Pearls/anim/MoviePlayer"        ; MOVIE
  810.                                 ""                                        ; ANIM
  811.                                 "TeX:bin/showdvi"                    ; DVI
  812.                                 "SYS:Utilities/More"                ; TEX
  813.                             )
  814.                         )
  815.  
  816.                         (set cliprograms                            ; set default for KS 1.2/1.3
  817.                             (select i
  818.                                 ""                                                    ; TEXT
  819.                                 ""                                                    ; GUIDE
  820.                                 ""                                                    ; HTML
  821.                                 ":Pearls/disk/File/NewZap/NewZap []"    ; BIN
  822.                                 ""                                                    ; REXX
  823.                                 ""                                                    ; PS
  824.                                 ":Pearls/disk/File/NewZap/NewZap []"    ; MOD
  825.                                 ":Pearls/disk/File/NewZap/NewZap []"    ; 8SVX
  826.                                 ":Pearls/disk/File/NewZap/NewZap []"    ; JPEG
  827.                                 ":Pearls/disk/File/NewZap/NewZap []"    ; GIF
  828.                                 ":C/Mostra []"                                    ; ILBM
  829.                                 ":Pearls/disk/File/NewZap/NewZap []"    ; PCX
  830.                                 ""                                                    ; MOVIE
  831.                                 ":Pearls/disk/File/NewZap/NewZap []"    ; ANIM
  832.                                 ""                                                    ; DVI
  833.                                 ""                                                    ; TEX
  834.                             )
  835.                         )
  836.  
  837.                         (if (< osversion 39)
  838.                             (                            ; overwrite for OS 2.04
  839.                                 (set wbprograms
  840.                                     (select i
  841.                                         "SYS:Utilities/More"                                ; TEXT
  842.                                         "SYS:Utilities/AmigaGuide"                        ; GUIDE
  843.                                         ""                                                        ; HTML
  844.                                         ":Pearls/Disk/File/Zaphod/Zaphod"            ; BIN
  845.                                         "SYS:Rexxc/rx"                                        ; REXX
  846.                                         ""                                                        ; PS
  847.                                         ":Pearls/mus/DeliTracker_II/DeliTracker2"    ; MOD
  848.                                         ":Pearls/mus/DeliTracker_II/DeliTracker2"    ; 8SVX
  849.                                         ":C/VT"                                                ; JPEG
  850.                                         ":Pearls/gfx/JIV/JIV"                            ; GIF
  851.                                         ":Pearls/gfx/JIV/JIV"                            ; ILBM
  852.                                         ":Pearls/Disk/File/Zaphod/Zaphod"            ; PCX
  853.                                         ":Pearls/anim/MoviePlayer"                        ; MOVIE
  854.                                         ":C/VT"                                                ; ANIM
  855.                                         "TeX:bin/showdvi"                                    ; DVI
  856.                                         "SYS:Utilities/More"                                ; TEX
  857.                                     )
  858.                                 )
  859.                                 (set cliprograms
  860.                                     (select i
  861.                                         ""                                                        ; TEXT
  862.                                         ""                                                        ; GUIDE
  863.                                         "Execute :Mosaic []"                                ; HTML
  864.                                         ""                                                        ; BIN
  865.                                         ""                                                        ; REXX
  866.                                         ":Pearls/gfx/HWGPOST/Post [] SCREEN"        ; PS
  867.                                         ""                                                        ; MOD
  868.                                         ""                                                        ; 8SVX
  869.                                         ""                                                        ; JPEG
  870.                                         ""                                                        ; GIF
  871.                                         ""                                                        ; ILBM
  872.                                         ""                                                        ; PCX
  873.                                         ""                                                        ; MOVIE
  874.                                         ""                                                        ; ANIM
  875.                                         ""                                                        ; DVI
  876.                                         ""                                                        ; TEX
  877.                                     )
  878.                                 )
  879.                             )
  880.                             (                            ; overwrite for OS 3.0
  881.                                 (set wbprograms
  882.                                     (select i
  883.                                         "SYS:Utilities/More"                                ; TEXT
  884.                                         "SYS:Utilities/MultiView"                        ; GUIDE
  885.                                         ""                                                        ; HTML
  886.                                         ":Pearls/Disk/File/Zaphod/Zaphod"            ; BIN
  887.                                         "SYS:Rexxc/rx"                                        ; REXX
  888.                                         "SYS:Utilities/MultiView"                        ; PS
  889.                                         ":Pearls/mus/DeliTracker_II/DeliTracker2"    ; MOD
  890.                                         ":Pearls/mus/DeliTracker_II/DeliTracker2"    ; 8SVX
  891.                                         ":C/VT"                                                ; JPEG
  892.                                         ":Pearls/gfx/JIV/JIV"                            ; GIF
  893.                                         ":Pearls/gfx/JIV/JIV"                            ; ILBM
  894.                                         "SYS:Utilities/MultiView"                        ; PCX
  895.                                         ":Pearls/anim/MoviePlayer"                        ; MOVIE
  896.                                         ":C/VT"                                                ; ANIM
  897.                                         "TeX:Bin/showdvi"                                    ; DVI
  898.                                         "SYS:Utilities/More"                                ; TEX
  899.                                     )
  900.                                 )
  901.                                 (set cliprograms
  902.                                     (select i
  903.                                         ""                                                        ; TEXT
  904.                                         ""                                                        ; GUIDE
  905.                                         "Execute :Mosaic []"                                ; HTML
  906.                                         ""                                                        ; BIN
  907.                                         ""                                                        ; REXX
  908.                                         ""                                                        ; PS
  909.                                         ""                                                        ; MOD
  910.                                         ""                                                        ; 8SVX
  911.                                         ""                                                        ; JPEG
  912.                                         ""                                                        ; GIF
  913.                                         ""                                                        ; ILBM
  914.                                         ""                                                        ; PCX
  915.                                         ""                                                        ; MOVIE
  916.                                         ""                                                        ; ANIM
  917.                                         ""                                                        ; DVI
  918.                                         ""                                                        ; TEX
  919.                                     )
  920.                                 )
  921.                             )
  922.                         )
  923.  
  924.                         (if (<> "" wbprograms)
  925.                             (
  926.                                 (set suggestion wbprograms)
  927.                                 (set suggwb 1)
  928.                                 (set suggcli 0)
  929.                             )
  930.                             (
  931.                                 (if (<> "" cliprograms)
  932.                                     (
  933.                                         (set suggestion cliprograms)
  934.                                         (set suggcli 1)
  935.                                         (set suggwb 0)
  936.                                     )
  937.                                     (
  938.                                         (set suggestion "")
  939.                                         (set suggcli 0)
  940.                                         (set suggwb 0)
  941.                                     )
  942.                                 )
  943.                             )
  944.                         )
  945.  
  946.  
  947.                         (if (NOT (exists ("ENV:MeetingPearls/%s" envvarname) (noreq)))
  948.                             (
  949.                                 (run ("SetEnv MeetingPearls/%s \"%s\"" envvarname suggestion))        ; set default
  950.                                 (if (= 1 suggcli)
  951.                                     (run ("SetEnv MeetingPearls/%s \"CLI %s\"" envvarname suggestion))
  952.                                 )
  953.                             )
  954.                         )
  955.  
  956.                         (set i (+ i 1))
  957.                     )
  958.                 )
  959.  
  960.                 (complete 20)
  961.  
  962.                 (onerror
  963.                     (run "delete S:FindPearls.prefs")
  964.                     (run "delete S:MetaTool.prefs")
  965.                     (run "delete ENV:MeetingPearls/VIEW_#?")
  966.                 )
  967.  
  968.                 (textfile
  969.                     (dest findpearlsprefs)
  970.                     (append ";FindPearls.prefs")
  971.                     (append "\n")
  972.                 )
  973.                 (textfile
  974.                     (dest metaprefs)
  975.                     (append ";MetaTool Configuration File")
  976.                     (append "\n\n")
  977.                 )
  978.  
  979.                 (set viewerbits
  980.                     (askoptions
  981.                         (prompt change_which_filetypes)
  982.                         (help
  983.                             change_which_filetypes_help1
  984.                             change_which_filetypes_help2
  985.                             change_which_filetypes_help3
  986.                             change_which_filetypes_help4
  987.                             "\nTEXT  - " (getenv "MeetingPearls/VIEW_TEXT")
  988.                             "\nGUIDE - " (getenv "MeetingPearls/VIEW_GUIDE")
  989.                             "\nHTML  - " (getenv "MeetingPearls/VIEW_HTML")
  990.                             "\nBIN   - " (getenv "MeetingPearls/VIEW_BIN")
  991.                             "\nREXX  - " (getenv "MeetingPearls/VIEW_REXX")
  992.                             "\nPS    - " (getenv "MeetingPearls/VIEW_PS")
  993.                             "\nMOD   - " (getenv "MeetingPearls/VIEW_MOD")
  994.                             "\n8SVX  - " (getenv "MeetingPearls/VIEW_8SVX")
  995.                             "\nJPEG  - " (getenv "MeetingPearls/VIEW_JPEG")
  996.                             "\nGIF   - " (getenv "MeetingPearls/VIEW_GIF")
  997.                             "\nILBM  - " (getenv "MeetingPearls/VIEW_ILBM")
  998.                             "\nPCX   - " (getenv "MeetingPearls/VIEW_PCX")
  999.                             "\nMOVIE - " (getenv "MeetingPearls/VIEW_MOVIE")
  1000.                             "\nANIM  - " (getenv "MeetingPearls/VIEW_ANIM")
  1001.                             "\nDVI   - " (getenv "MeetingPearls/VIEW_DVI")
  1002.                             "\nTEX   - " (getenv "MeetingPearls/VIEW_TEX")
  1003.                             change_which_filetypes_help5
  1004.                         )
  1005.                         (choices
  1006.                             "TEXT"
  1007.                             "GUIDE"
  1008.                             "HTML"
  1009.                             "BIN"
  1010.                             "REXX"
  1011.                             "PS"
  1012.                             "MOD"
  1013.                             "8SVX"
  1014.                             "JPEG"
  1015.                             "GIF"
  1016.                             "ILBM"
  1017.                             "PCX"
  1018.                             "MOVIE"
  1019.                             "ANIM"
  1020.                             "DVI"
  1021.                             "TEX"
  1022.                         )
  1023.                     )
  1024.                 )
  1025.  
  1026.                 (set i 0)
  1027.                 (while
  1028.                     (set mytext
  1029.                         (select i
  1030.                             sel_text
  1031.                             sel_guide
  1032.                             sel_html
  1033.                             sel_bin
  1034.                             sel_rexx
  1035.                             sel_ps
  1036.                             sel_mod
  1037.                             sel_8svx
  1038.                             sel_jpeg
  1039.                             sel_gif
  1040.                             sel_ilbm
  1041.                             sel_pcx
  1042.                             sel_movie
  1043.                             sel_anim
  1044.                             sel_dvi
  1045.                             sel_tex
  1046.                             ""
  1047.                         )
  1048.                     )
  1049.                     (
  1050.                         (set thisname
  1051.                             (select i
  1052.                                 "VIEW_TEXT"
  1053.                                 "VIEW_GUIDE"
  1054.                                 "VIEW_HTML"
  1055.                                 "VIEW_BIN"
  1056.                                 "VIEW_REXX"
  1057.                                 "VIEW_PS"
  1058.                                 "VIEW_MOD"
  1059.                                 "VIEW_8SVX"
  1060.                                 "VIEW_JPEG"
  1061.                                 "VIEW_GIF"
  1062.                                 "VIEW_ILBM"
  1063.                                 "VIEW_PCX"
  1064.                                 "VIEW_MOVIE"
  1065.                                 "VIEW_ANIM"
  1066.                                 "VIEW_DVI"
  1067.                                 "VIEW_TEX"
  1068.                             )
  1069.                         )
  1070.  
  1071.                         (set suggestion (getenv  ("MeetingPearls/%s" thisname)))
  1072.                         (if (= (substr suggestion 0 4) "CLI ")
  1073.                             (
  1074.                                 (set useenvironment 1)
  1075.                                 (set suggestion (substr suggestion 4))
  1076.                                 (set suggestiontype "CLI")
  1077.                             )
  1078.                             (
  1079.                                 (set useenvironment 0)
  1080.                                 (set suggestiontype "Workbench")
  1081.                             )
  1082.                         )
  1083.  
  1084.                         (if (IN viewerbits i)
  1085.                             (
  1086.                                 (complete (+ 20 (* 4 i)))
  1087.  
  1088.                                 (set useenvironment
  1089.                                     (askchoice
  1090.                                         (prompt ("%s%s%s%s%s" mytext start_from_wb1 suggestiontype start_from_wb2 suggestion))
  1091.                                         (help start_from_wb_help_1 start_from_wb_help_2 start_from_wb_help_3)
  1092.                                         (choices "Workbench" "CLI")
  1093.                                         (default useenvironment)
  1094.                                     )
  1095.                                 )
  1096.  
  1097.                                 (complete (+ 22 (* 4 i)))
  1098.  
  1099.                                 (if (= useenvironment 0)
  1100.                                     (                                                ; use Workbench
  1101.                                         (set varval
  1102.                                             (expandpath
  1103.                                                 (askfile
  1104.                                                     (prompt mytext)
  1105.                                                     (help choosewbprg_help)
  1106.                                                     (default (expandpath suggestion))
  1107.                                                 )
  1108.                                             )
  1109.                                         )
  1110.  
  1111.                                         (run ("SetEnv MeetingPearls/%s \"%s\"" thisname varval))
  1112.  
  1113.                                         (set vartype (substr thisname 5))
  1114.                                         (set fppline ("%s=%s" vartype varval))
  1115.                                         (set metaline ("%s\t%s" vartype varval))
  1116.                                     )
  1117.                                     (                                                ; use CLI
  1118.                                         (set varval
  1119.                                             (askstring
  1120.                                                 (prompt mytext enter_cmdline)
  1121.                                                 (help enter_cmdline_help)
  1122.                                                 (default suggestion)
  1123.                                             )
  1124.                                         )
  1125.  
  1126.                                         (run ("SetEnv MeetingPearls/%s \"CLI %s\"" thisname varval))
  1127.  
  1128.                                         (set vartype (substr thisname 5))
  1129.                                         (set fppline ("%s=\"\"" vartype))
  1130.                                         (set metaline ("%s\tCLI %s" vartype varval))
  1131.                                     )
  1132.                                 )
  1133.                             )
  1134.                             (
  1135.                                 (complete (+ 22 (* 4 i)))
  1136.                                 (set vartype (substr thisname 5))
  1137.                                 (if (= useenvironment 0)
  1138.                                     (                                                ; use Workbench
  1139.                                         (set fppline ("%s=%s" vartype (expandpath suggestion)))
  1140.                                         (set metaline ("%s\t%s" vartype (expandpath suggestion)))
  1141.                                     )
  1142.                                     (                                                ; use CLI
  1143.                                         (set fppline ("%s=%s" vartype suggestion))
  1144.                                         (set metaline ("%s\tCLI %s" vartype suggestion))
  1145.                                     )
  1146.                                 )
  1147.                             )
  1148.                         )
  1149.  
  1150.                         (textfile
  1151.                             (dest "RAM:MP2_tmptextfile1")
  1152.                             (include findpearlsprefs)
  1153.                         )
  1154.                         (textfile
  1155.                             (dest "RAM:MP2_tmptextfile2")
  1156.                             (append fppline)
  1157.                             (append "\n")
  1158.                         )
  1159.                         (run ("Join RAM:MP2_tmptextfile1 RAM:MP2_tmptextfile2 TO \"%s\"" findpearlsprefs))
  1160.                         (delete "RAM:MP2_tmptextfile1")
  1161.                         (delete "RAM:MP2_tmptextfile2")
  1162.  
  1163.                         (textfile
  1164.                             (dest "RAM:MP2_tmptextfile1")
  1165.                             (include metaprefs)
  1166.                         )
  1167.                         (textfile
  1168.                             (dest "RAM:MP2_tmptextfile2")
  1169.                             (append metaline)
  1170.                             (append "\n")
  1171.                         )
  1172.                         (run ("Join RAM:MP2_tmptextfile1 RAM:MP2_tmptextfile2 TO \"%s\"" metaprefs))
  1173.                         (delete "RAM:MP2_tmptextfile1")
  1174.                         (delete "RAM:MP2_tmptextfile2")
  1175.  
  1176.                         (set i (+ i 1))
  1177.                     )
  1178.                 )
  1179.                 (run ("SetEnv METACONFIG \"%s\"" metaprefs))
  1180.  
  1181.                 (onerror)
  1182.  
  1183.                 (complete 95)
  1184.  
  1185.                 (if (AND (exists "ENV:" (noreq)) (exists "ENVARC:" (noreq)))
  1186.                     (
  1187.                         (set copyenvarc
  1188.                             (askbool
  1189.                                 (prompt wanna_copy_to_envarc)
  1190.                                 (help wanna_copy_to_envarc_help)
  1191.                                 (choices ja_antwort nein_antwort)
  1192.                                 (default 0)
  1193.                             )
  1194.                         )
  1195.                         (if (= 1 copyenvarc)
  1196.                             (
  1197.                                 (copyfiles
  1198.                                     (source "ENV:MeetingPearls")
  1199.                                     (dest "ENVARC:MeetingPearls")
  1200.                                     (all)
  1201.                                     (delopts fail)
  1202.                                     (optional nofail force)
  1203.                                 )
  1204.                                 (copyfiles
  1205.                                     (source "ENV:")
  1206.                                     (dest "ENVARC:")
  1207.                                     (pattern "METACONFIG")
  1208.                                     (delopts fail)
  1209.                                     (optional nofail force)
  1210.                                 )
  1211.                             )
  1212.                         )
  1213.                     )
  1214.                 )
  1215.             )
  1216.         )
  1217.  
  1218.         (complete 97)
  1219.  
  1220.         (if (>= osversion 37)
  1221.             (
  1222.                 (run ":C/formatdate \"%d%m\" >ENV:MP_CLICKME_FIRST_TMP")
  1223.                 (if (patmatch "0104?" (getenv "MP_CLICKME_FIRST_TMP"))
  1224.                     (
  1225.                         (if (>= osversion 39)
  1226.                             (                            ; Kopiere 3.x-Prefs-Dateien
  1227.                                 (run "Rename ENV:sys/WBPattern.prefs ENV:sys/MP_old_WBPattern.prefs")
  1228.                                 (run "Rename ENV:sys/Pointer.prefs ENV:sys/MP_old_Pointer.prefs")
  1229.                                 (run "Rename ENV:sys/palette.prefs ENV:sys/MP_old_palette.prefs")
  1230.                                 (run "Rename ENV:sys/Font.prefs ENV:sys/MP_old_Font.prefs")
  1231.                                 (run "Copy :SYS/Env/sys/WBPattern.prefs ENV:sys")
  1232.                                 (run "Copy :SYS/Env/sys/Pointer.prefs ENV:sys")
  1233.                                 (run "Copy :SYS/Env/sys/palette.prefs ENV:sys")
  1234.                                 (run "Copy :SYS/Env/sys/Font.prefs ENV:sys")
  1235.                             )
  1236.                             (                            ; Kopiere 2.x-Prefs-Dateien
  1237.                                 (run "Rename ENV:sys/wb.pat ENV:sys/MP_old_wb.pat")
  1238.                                 (run "Rename ENV:sys/pointer.ilbm ENV:sys/MP_old_pointer.ilbm")
  1239.                                 (run "Rename ENV:sys/palette.ilbm ENV:sys/MP_old_palette.ilbm")
  1240.                                 (run "Rename ENV:sys/sysfont.prefs ENV:sys/MP_old_sysfont.prefs")
  1241.                                 (run "Copy :SYS/Env/sys/wb.pat ENV:sys")
  1242.                                 (run "Copy :SYS/Env/sys/pointer.ilbm ENV:sys")
  1243.                                 (run "Copy :SYS/Env/sys/palette.ilbm ENV:sys")
  1244.                                 (run "Copy :SYS/Env/sys/sysfont.prefs ENV:sys")
  1245.                             )
  1246.                         )
  1247.                         (set oldlevel @user-level)
  1248.                         (user 2)
  1249.                         (message April)
  1250.                         (user oldlevel)
  1251.                     )
  1252.                 )
  1253.  
  1254.                 (run ":C/formatdate \"%H:%M\" >ENV:MP_CLICKME_FIRST_TMP")
  1255.                 (if (patmatch "0[1-6]:#?" (getenv "MP_CLICKME_FIRST_TMP"))
  1256.                     (
  1257.                         (set oldlevel @user-level)
  1258.                         (user 2)
  1259.                         (message Heia_1 (substr (getenv "MP_CLICKME_FIRST_TMP") 0 5) Heia_2)
  1260.                         (user oldlevel)
  1261.                     )
  1262.                 )
  1263.                 (run "Delete ENV:MP_CLICKME_FIRST_TMP")
  1264.             )
  1265.         )
  1266.     )
  1267.  
  1268.     (                                ; de-install it
  1269.         (run "delete ENV:METACONFIG")
  1270.         (run "delete S:FindPearls.prefs")
  1271.         (run "delete S:MetaTool.prefs")
  1272.         (run "delete ENV:MeetingPearls/VIEW_#?")
  1273.         (run "delete ENVARC:MeetingPearls/VIEW_#?")
  1274.  
  1275.         (complete 97)
  1276.  
  1277.         (if (>= osversion 37)
  1278.             (
  1279.                 (run ":C/formatdate \"%d%m\" >ENV:MP_CLICKME_FIRST_TMP")
  1280.                 (if (patmatch "0104?" (getenv "MP_CLICKME_FIRST_TMP"))
  1281.                     (
  1282.                         (if (>= osversion 39)
  1283.                             (                            ; Restauriere 3.x-Prefs-Dateien
  1284.                                 (run "Copy ENV:sys/MP_old_WBPattern.prefs ENV:sys/WBPattern.prefs")
  1285.                                 (run "Copy ENV:sys/MP_old_Pointer.prefs ENV:sys/Pointer.prefs")
  1286.                                 (run "Copy ENV:sys/MP_old_palette.prefs ENV:sys/palette.prefs")
  1287.                                 (run "Copy ENV:sys/MP_old_Font.prefs ENV:sys/Font.prefs")
  1288.                                 (run "Delete ENV:sys/MP_old_WBPattern.prefs")
  1289.                                 (run "Delete ENV:sys/MP_old_Pointer.prefs")
  1290.                                 (run "Delete ENV:sys/MP_old_palette.prefs")
  1291.                                 (run "Delete ENV:sys/MP_old_Font.prefs")
  1292.                             )
  1293.                             (                            ; Restauriere 2.x-Prefs-Dateien
  1294.                                 (run "Copy ENV:sys/MP_old_wb.pat ENV:sys/wb.pat")
  1295.                                 (run "Copy ENV:sys/MP_old_pointer.ilbm ENV:sys/pointer.ilbm")
  1296.                                 (run "Copy ENV:sys/MP_old_palette.ilbm ENV:sys/palette.ilbm")
  1297.                                 (run "Copy ENV:sys/MP_old_sysfont.prefs ENV:sys/sysfont.prefs")
  1298.                                 (run "Delete ENV:sys/MP_old_wb.pat")
  1299.                                 (run "Delete ENV:sys/MP_old_pointer.ilbm")
  1300.                                 (run "Delete ENV:sys/MP_old_palette.ilbm")
  1301.                                 (run "Delete ENV:sys/MP_old_sysfont.prefs")
  1302.                             )
  1303.                         )
  1304.                     )
  1305.                 )
  1306.                 (run "Delete ENV:MP_CLICKME_FIRST_TMP")
  1307.             )
  1308.         )
  1309.     )
  1310. )
  1311.  
  1312. (complete 100)
  1313.  
  1314. (set @default-dest "")
  1315.